N 
— 
=) 


**F ILE**1D**SYSFAO 
SSSSSSSS_ YY YY SSSSSSSS FFFFFFFFFF AAAAAA 000000 
SSSSSSSS_ YY YY SSSSSSSS FFFFFFFFFF AAAAAA 000000 
SS YY YY SS FF BA AA 00 00 
S$ YY YY $$ FF AA AA 00 00 
SS YY YY SS FF Ba AA 00 00 
SS yy YY $s FF AA AA 00 00 
SSSSSS YY SSSSSS FFFFFFFF AA AA 00 00 
SSSSSS YY SSSSSS FFFFFFFF Ad AA 00 00 
SS YY SS FF AAAAAAAAAA $00 00 
SS YY SS FF AAAAAAAAAA $00 00 
SS YY SS FF AA AA 00 00 eees 
SS YY SS FF AA AA 00 00 cece 
SSSSSSSS YY SSSSSSSS FF AA AA 000000 eee 
SSSSSSSS YY SSSSSSSS FF AR AA 000000 eos 
LL III! SSSSSSSS 
LL Hii! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] $$ 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] $$ 
LL I] $$ 
LL I] $$ 
LL I] Ss 
LLELLLLLLLL III] SSSSSSSS 
LLLLLLLLELL T1111 SSSSSSSS 
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AR_= Routine to get next char from in 
T = Routine to get repeat-count or 
- Insert SSCIE String 
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Time directives, plural 
Condition handler 
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FACILITY: SYSTEM SERVICE 
ABSTRACT: 


This module provides peneret Seenest ing services. It converts 
binary values to octal, hexadecimal, and decimal A 
representations, and also inserts ASCII strings aod converts 
date and time to ASCII. 


ENVIRONMENT: 
FAO runs in the mode of the caller. 
AUTHOR: Henry M. Levy . CREATION DATE: 29-JAN-1977 
MODIFIED BY: 
v03-014 LJK0278 Lawrence J. Kenah 2-May-1984 
Move this code to separate gro ram section to reduce the 
strain on the cursed word displacements. 


vO3-013 LMPO201 L- Mark Pilant, 28-Feb-1984 13:22 
Add support for re the match-all identifier. 


v03-012 pene? ark Pilant, Noya=1983 15:07 
Correctly handle ye wildcards in me, ti directive. 


v03-011 LMP0119 Mark Pilant, 16-Jun-1983 12:05 
Make ceesensiation identifiers appear as hex numbers. 
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f ev ipt ter 
ange !AF to not make "’."’ out of valid 8 bit characters. 


v03-009 LMPO111 L. Mark Pilant 9-May-1983 9:45 
Add a new directive, %1, to allow formatting of identifiers. 


v03-008 LMP0078 L. Mark Pilant, 10-Feb-1983 12:52 
Modify the method used when checking for wildcard group 
and member portions of the UIC. 


v03-007 LMP00S6 L. Mark Pilant, 28-Oct-1982 20:50 
Correct a problem introduces by LmP00s¢ which caused a 
truncated search of the % directive table. 


v03-006 LMP00S2 re Mark Pilant 14-Oct-1982 12:30 
Add a new directive, !%U, to allow formatting of a UIC. 


v03-005 MSHO001 Maryann S. Hinden 20-NOV-1981 
Use longword displacement to reference EXESSIGTORET. 


v03-004 DdwWT0001 David W. Thiel 06-Nov-1981 
Fixed condition handler. Check argument to SASCTIM to 
prevent exception in SASCTIM. 


v03-003 PCA0001 Paul C. Anagnostopoulos 22-Jul-1981 
Fixed a bug wherein !AF did not replace unprintable 
characters if it encountered result ete ing overflow. 
Now it replaces those characters that it does copy. 


v03-002 TCM0001 Trudy C. Matthews 10-Mar-1981 
Change CALLS with word displacement to CALLS with longword 
displacement. 


v03-001 TMHOOO1 Tim Halvorsen 24-Feb-1981 
Add condition handler to catch access violations 
and the Like, so that services Like SPUTMSG do 
not cause an access violation in programs Like DCL 
simply because not enough arguments were supplied. 


v03-010 f.voes? Jake VanNoy 
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«SBTTL DECLARATIONS 


MACROS: 


ites : define system status codes 

CHF DEF 3; Condition Rend) ng facility 
SSFDEF ; Call frame definitions 
SUICDEF ; UIC FIELD OFFSETS 


ARGCOUNT = 0 3; offset to argument gount 

INDSC =464 3; offset to input str ng descriptor 
OUTLEN = ’ 3; offset to output length 

OUTOSC = ¢ 3; offset to output buffer descriptor 
FIRSTARG = 16 ; offset to first conversion param 
INLEN = “18 ; local offset to input length remaining 
INPTR = =1 : local offset to input string pointer 
LASTVAL = -8 : local offset to last value converted 
FIELDEND = -4 ; local offset to end of defined field 
CR = 1 3 corr tage return 

LF s 1 3; line feed 

EXCL = 3 3; exclamation (‘'!") 

TAB = ; horizontal tab 

FF = 12 ; form feed 


; OWN STORAGE: 


-PSECT YFSSYSFAO 


ASC_NAMES: 


eASCII = /0123456789ABCDEF / ; ASCII digits 


The following table contains the fires character for all 

FAO conversion directives. The first part o toe table 

contains the first character for two-character directives, 

> he second half of the table contains the one-character 
rectives. 


NOTE == The ordering of this table must be preserved. The index 
of the directives found in this table is used to dispatch 
via a CASE statement in the - nm program (FAO). 

Routine CVTNUM also wees he index to etepatch and to 
compute the proper radix for the conversion. 


CNTRL_TABLE: 


S< 


hee et loulng array contains th 

word, and longword fields. 

Res digits Starting at the 4'th 
indexed 


e number of Octal and Hex digits in 
s. The byte digits are first, the 
entry so that the array may be 

contex 


CT_HEX_DIGITS: 
-BYTE 3-6-1140 
-BYTE 4,8 


° 88 be 82 


OA OA OA 10 08 -BYTE 8,16,10,10,10 : radix for numeric conversisons 


7 
- Ff ASCII OUTPUT SYSTEM SERVICE 1 P-1 1 AX/VM Be 51 P 
DECLARATIONS BrSEe mi 8be OSiSS1e HeNEMeS Haseena ge, oe 
00 ! $ TWO_CHAR_CNTRLS: 
F QC ~ ASC /0/ ; octal conversions 
OC 1 § ASC /X/ 3; hex conversions 
! 1 eASCIL = /U/ ; unsigned d cieet 
! 1 eASCIL /3$/ : signed dec ant 
A QO } *ASCIT = /2/ ; unsigned decimal zero f filled 
3) 00 1 eASCIT = /A/ g age ii insertion directives 
DC 1 ASC /%/ 3; time conversion, plural indication, or UI 
A QO 1 ASCII /*#/ 3; character repeater 
BOOB 16g eRe ye7 hip orgunent 
DC ° s 4 ar n 
D 00 1 SASCAL /=/ : bechup up argument 
C i 1 § “ASEH /</ 3 begin f ? definition 
E OC 1 sASCII />/ ; of field definition 
D0 168 REPLACE_CHRS: 3 th ese are one or two char replacements 
F OC 1 aide e/. 3; newline 
F OC 1 “ASCII // ; tab 
; D0 iy atti Pe ; form feed 
DC 1 ASCII /!/ : insert exclamation 
06000010 4 Ve CNTRL _LENGTH = .-CNTRL_TABLE ; length of table 
00000008 00 175 ONECHAR INDEX = CNTRL_LENGTH ~ <ONE_CHAR.CNTRLS = CNTRL_TABLE> 
0000000C 179 REPL_OFFSET = REPLACE_CHRS = CNTRL_TABLE ; offset of replacement chars 
55 STRING_TYPES: 
46 44 53 43 180 a /CSOF/ ; ascii string types 
181 DATA_TYPES: 
4C 57 42 1 § . /BWL/ ; byte, word , or long 
183 PERCENT_STR: 
54 44 53 49 55 ! : 51ELDS: ASCII /UISDT/ ; subtypes for % directive 
20 10 08 ! $ semacenioy. 8,16,32 ; field size for B,W,and L 
21 OC 09 OA ! 3 BYTE LF,TAB,FF,EXCL 3; simple replacement table 
1 
: 
4 
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RC] SPAO.MAR: 1 
. -SBTTL FAO = MAIN PROGRAM 
FUNCTIONAL DESCRIPTION: 
This routine is the entry point for o FAO and A system 
services. Th e cater § S pentres str scanned for oy 
characters (‘!"), her in ormation s simply passed to 
the output buffer. . H control directive is found, it is parse? 
and an action routine is cispatched. 
CALLING SEQUENCE: 
CALLS or CALLG to SYSSFAO or SYSS$FAOL 
INPUT PARAMETERS: 
INDSC <= coe ouprese SF a string descriptor for the input 
° r 
OUTLEN = ipo pervere Se of a word to receive the length of 
utpu 
OUTDSC = The address of of a string descriptor for the output 
FIRSTARG = For FAOL , this is the address of a list of longword 
parameters. For FAO , this is the first ofa 
variable number of parameters which 
may have been passed on the call argument List. 
IMPLICIT INPUTS: 
none 
OUTPUT PARAMETERS: 
OUTLEN = Word pointed to will receive length of output buffer. 


IMPLICIT OUTPUTS: 


none 
COMPLETION CODES: 
SS$_NORMAL = success code, normal return 
SS$_ =BUFFERovr - output buffer overflow gstonpt to write past end of outpu 
SS$~BADPAR - invalid directive specifi 
SS “Reevio - unable to read argument (Se or address arguments 
SIDE EFFECTS: 
none 


Global register usage: 


R7,R8 = scratch registers 
R9° = number of characters remaining in output buffer 
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= FORMATTED ASCII OUTPUT SYSTEM SERVICE 16-SEP-1984 06:1 AX/VMS Macro Vv04-00 Page SY 
FAO = MAIN PROGRAM iS} 9g: 96:18 PYS  SRCISYSFAO MARS] * (%) vO 
F i R10 = current position in output buffer 
; ? ; R11 = pointer to next conversion parameter 
‘ § : Locals 
F 8 ; INLEN(FP) = (word) Length of input gontrol string 
; 19 ; INPTR(FP) = address of position in input control string 
Ee & 
F ie 3 
: 4 ; Entry point for call with multiple arguments on stack 
F oe : 
: 6 EXESFAO:: 
OF FC F 4 -WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,R1I0,R11> ; save all registers 
6D. OSAD'CF 9E 0041 27 MOVAB W°HANOLER, (FP) ; Establish condition handler 
58 10 AC DE 46 80 MOVAL FIRSTARG(AP),R11 : get address of first argument 
1 bee ee BRB FAO 3 go to main routine 
4C 3 
ace bs 3 Entry point for FAOL call. 
04¢ 86 ' 
bee EXESFAOL:: 
OFFC 04C Hy » 2D “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
6D OSAD'CF 3 04 90 veB = WHANDLER, (FP) 3 Establish condition handler 
5B 10 AC OD 8 31 a MOVL  FIRSTARG(AP) R11 : address of first argument 
, ee. $89 38 ; CLRQ -(SP) 3 save space for LASTVAL and FIELDEND 
43 04 BC 7D 0059 94 MOva @INDSC(AP) ,-(SP) 3; save locals on stac 
59 OC BC 7D 005D 295 MOVQ  @OUTDSC(APS RO : load output descriptor into R9,R10 
59 9 x 6) 38 MOVZWL R9,RO 3; ensure word length 
064 98 ; 
064 99 ; Look for a control character in the input string. Copy text 
2 5 3 up to the control, if any , to the output buffer. 
64 : 
64 § MAIN_SCAN: 
a Be 64 4 CLRL (SP) ; indicate control not found 
F4 BD FO AD A 66 5 LOCC #EXCL , INLEN(FP) ,@INPTR(FP) 3; search for control char 
- Up C $ BEQL 1 : branch if not found 
E 06 108 INCL (SP) 3 set indicator to show char. found 
56 FO AD 8 A3 7 $ 3 SUBW3 BQ. HL EMCEE) one 3; calculate bytes to move 
FO AD D 7 1 RO, INLEN(FP) 3; update input length rempining 
59 8 A 79 1 SUBW R6,R9 3; update and test output Lengt 
1 7c 31 BLSS_ OVERFLOW > not enough room, error exi 
6A F4 BD 6 8 43 1 MOVCS R6,@INPTR(FP), (R10) 3 move tex part of input string 
74 : é 14 BLBC (SP)+,DONE : leave if no controls left 
F4 AD D 6 315 MOVL 1, INPTR(FP) : update input address pointer 
SA > @ A 16 MOVL R3,R10 3 update output address pointer 
A 1 D i BSBB «GE TCHAR : skip control char 
F 19 ; 


N 7 
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I 06 eet 7 86:99:18 LEYS SRCTSYSEAO MARS? ’ (3) 
F ; Parse the ereective which has been found in the input string. Set 
F ; up: RO = remainin count in CNTRL_TABLE 
F ; 4 = second char if two-char directive 
F : R5 = repeat count 
F 4; R6 = field width 
: 5; 
: PARSE _DIRECTIVE: 
55 1 00 F § MOVL #1,R5 ; default repeat count is 1 
2 4 : 0 CLRL R2 3 paren indicator ( not found yet ) 
007F 2 BSBW GE TCOUNT : pull off count any 
£0 7 BSBB ss GETCHAR ; get next char from input string 
53 9 99 CMPB #*A/(/,R3 ; was next char a paren 
1 9C 4 BNEQ 208 3; branch if not 
D H 5 INCL Re 3; set paren found indicator 
D A § TSTL R6 3 was there a repeat count? 
g 19 OOA BLSS 10$ 3; no..use default 
55 6 00 BAS : 108 MOVL R6,R5 ; else get repeat count 
6D + OA7 40 BSBB GETCOUNT ; look for field width 
=. OA9 41 BSBB GETCHAR 3 get next char 
OO0AB 42 20$ 
FFSF CF 10 33 3A OOAB 2§ LOCC R3,#CNTRL_LENGTH,CNTRL_TABLE ; check character in table 
9 13 0081 44 BEQL het : illegal directive exit 
08 50 01 0083 45 CMPL RO ,#ONECHAR_ INDEX ; is this a one char directive? 
05 =15 it 6 BLEQ 30$ 3 yes, don't need any more 
4F 10 328 4 BSBB ay nae 3; get second control char 
° 3; move to or return 
54 53 00 ey rh: 508 MOVL R3,R4 R4 f 
02 2$ E9 S0Bp 50 BLBC R2,40$ ; skip if no paren found 
4 10 Bae 51 BSBB GETCHAR ; else skip paren char 
43 26 40$: 
3 0 3 cs 0 ce 20 SUBL3 RO, #CNTRL_LENGTH,R3 ; compute offset for case table 
00C6 56 ; 
00C6 a ; The following does a BSBB to the case dispatch 
45 28 3 table. The service routines do an RSB and return into CASE_LOOP. 
0C6 360 ° 
0c 61 BRB CASE_LOOP 3; start processing loop 
C 6 CASE_BSB: 
C 6 BSBB FAO_CASE 3; dispatch next directive 
CA 64 CASE_LOOP: 
CA 65 SOBGEQ R5,CASE_BSB 3; repeat as specified 
43 ef BRB MAIN_SCAN ; else continue string processing 
CF 5 
Oct $3 3; Here is the main dispatch table for dispatching FAO service 
CF 3; routines. The case is entered via Byes from CASE_BSB. The routines 
CF 71 ; RSB to CASE_LOOP. Since the 5 numeric conversion d rgctives all 
CF 72 ; dispatch to the same routine, the case has a base of 5 and the 
44 4 3 numeric directives fall through to the statement following the CASE. 
of 75 ; Registers RO, R1, and R2 may be scratched by service routines. 
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502-000 FAO = MAIN PROGRAM iets 86:98:13 EOYs SRCISYSEAO.MARS1 = ay Vv04 
CF 77 
CF 8 FAO_CASE: 
CF 7 CASE R3,<- 5 Ciageteh fo sqrvice routine 
CF 0 CVfASC,= > ascii string insertion 
CF 1 PERCENT, = ; insert asci time, plural ‘Ss’, or UIC 
CF : REPEATIT,- t repeat character 'n’ times 
CF INCR_ARGPTR, = ; skip next parameter 
CF 4 DECR_ARGPTR,- ; backup to previous parameter 
CF 5 STARTFIELD,=- 3 define fixed Length el 
CF § ENDFIELD,=- ; terminate fixed length field 
CF NEWLINE ,- ; insert CR/LF 
CF 8 INSERT_CHAR, = : insert 
CF INSERT_CHAR,= ; insert form feed 
CF 90 INSERT_CHAR,=- ; insert ‘!' 
4 4 >,B, #5 ; offset start by 5 
O0EO 31 oes 38 BRw CVTNUM ; dispatch to numeric conversion 
OEC 95 
OEC 3g ILLEGAL: 
50 14 3C QOEC 9 MOVZWL #SS$_BADPARAM,RO : error return code 
wre OOF 35 OVERFLOW 3 oma 
50 0601 8F 3C OOF1 400 MOVZWL #SS$_BUFFEROVF ,RO ; error return code 
59 DS OOF6 401 CLRL 3; ensure correct return Length 
03 (11 OOF8 40¢ toe BRB FAO_EXIT 
a; ee ree the mn ne #SS$_NORMAL ,RO 3; no errors 
08 AC DS OOFD 406 " OUTLEN(AP) 3 was a return length required? 
06 13 0100 407 BEQL ; branch if not 
BC C BC A SUBW R9,@OUTDSC(AP) ,AOUTLEN(AP) ; compute and return output buffer Length 
08 0 59 a3 0102 408 3 RI AP 
04 0108 409 10$: RET 
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FUNCTIONAL DESCRIPTION: 
This routine gets the next character from the input control 
string, updating the length and address pointers. If the length 
goes negative, an error exit is called. 

CALLING SEQUENCE: 
JSB (R8) 

INPUT PARAMETERS: 
none 

IMPLICIT INPUTS: 


INLEN(FP) = Lower word has yonerarns Length of input string 
INPTR(FP) = is pointer to current string position 


OUTPUTS: 
R3 - next character in input string 
IMPLICIT OUTPUTS: 
none 
COMPLETION CODES: 
none 
SIDE EFFECTS: 


input pointers on stack are updated 
error may cause jump to ILLEGAL 


PE ot ot ot ot ae at UMMA UMUUUAUAUAAAAAAAMAAMAAAAAAAMAAAMAAAARMrRRa ee 
AMMAN BB BE BEBE BWW WAN WIUIRPROPONOPOPOPPPO tH 


Oh hh hh 
ee en en enim w jw lolalelalelelelelelelelelelelelelelelolealelelelelelolelololol oa) 
VTUMO OOOOOOOODOODOODOOOVOOVODOOODOVOOVOODOOOOOOOVOOOOOOOOOO 
NOUS WN OOO NAME WIN  O OD NIA UNE WW 0 OO NIA MEW OOO NOU EWN ae 


SOOQOOOCCOCOCOCOCOCOOCOOCOOCOOCSOOCOOCOOOOOOoOoOO 


GETCHAR: 
FO AD 7 DECW INLEN(FP) ; decr input length remaining 
DE 9 BLSS ILLEGAL ; error if no more left 
53 F4 BD 9A MOVZBL @INPTR(FP),R3 3; get next character 
F4 AD OD INCL INPTR(FP) ; update pointer 
0 RSB 3 return 
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voe-000 GETCOUNT = Routine to get repeat-count o $78 SEP=1 1984 $6:99:18 LOYS SRCISTSEAOLMARS 1 ° (3) v4 
1} $7 -SBTTL GETCOUNT = Routine to get repeat-count or field-width 
11 461 ;++ 
11 462 ; 
1 2 i 3; FUNCTIONAL DESCRIPTION: 
11 465 : This Supreut ine to PARSE_DIRECTIVE scans for a nag 8 or 
11 298 3 field-width in the directive in the input stream. If @ numeric 
11 22 ; ount is found, it is converted to binary. If a ‘#' character 
11 4 3 ; s found, the count is taken from the next parameter 
uy re : in the parameter List. 
1 cr $ CALLING SEQUENCE: 
116 238 : JSB or BSB 
118 474; 
11 475 ; INPUTS: 
By 478 : 
18 pias 3 R11 - parameter pointer 
116 479 : IMPLICIT INPUTS: 
118 aan: 
3 none 
0116 4 ¢ 3 
Orie ? Z 3; OUTPUTS: 
B112 aBs : R6 - value of count, if # or number found, else -1 
116 if : IMPLICIT OUTPUTS: 
a rt : R11 may be modified if a parameter is taken from the stack 
116 491 : COMPLETION CODES: 
118 498 
: none 
116 494; 
116 495 ; SIDE EFFECTS: 
116 £38 3 
116 497; R1, R3, and R4 are destroyed 
119 $38 i-- 
118 500 
116 1 
11 i GETCOUNT: 
01 cf 11 MNEGL #1,R6 ; not found indicator 
F4 BD 23 91 011 4 CMPB. ss #*A/#/, @INPTR(FP) : is this a paran, count? 
26 13 011D 5 BEQL 40$ 3: yes .. pull next peren 
7C «(OTF $ CLRQ & 3; zero buffer vor digit (R3) 
121 3 ee. and accumulator for sum (R4) 
51 F4 AD 00 : 1 8 108 MOVL INPTR(FP),R1 3; remember where we were 
53 F4 BD 0 $3 1 3 10 ; SUBB3 #*A/0/,@INPTR(FP) ,R3 ; subtract ascii 0 tree char 
F 12A 11 LSS 3; branch if not _numer C 
53 9 91 O12C ¢ CMPB #*A/9/=*A/0/ ,R3 3 still numeric? 
4 OA ce O18) 314 RULt2 #10,R4 re digit 
4 53 ¢O 0134 515 ADDL R3,R4 : add in next digit 
ees mS 
——___—_, — 
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ES 1 1 BSBB TCHAR 3; skip digit we took 
EA 19 ! 5 ! 208 BRB tt 3 cont inus while numeric 
F4 AD } 9 1 1 CMPL RI INPTR(FP) 3; did we get any chars? 
15F BEQL 3; no, leave 
56 4 OD 141 1 MOVL R4,R6 3 yes, return value 
144 § 30$: 
05 014 RSB 3; return 
14 4 
14 5 40$ 
56 8B OD 14 § MOVL (R11)+,R6 3; get value from next parameter 
BF 1 14 BSBB  —« GETCHAR : skip ‘a’ 
0 14A 8 RSB 3 return 
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FUNCTIONAL DESCRIPTION: 


Service routine $9 handle ASCII string insertions. 
$ rings are spes ii iec by several different methods. for 


f sto ings (AF) , non=-printing characters are output 
as dots ('.'). 
CALLING SEQUENCE: 
JSB or BSB 
INPUTS: 
R3 - index of first control char in CNTRL_TABLE 
: R4 - second control character 
R6 - output field width 
: R9 - output buffer Length remaining 
R10 - output buffer pointer 
5 R11 - parameter pointer 
; IMPLICIT INPUTS: 
none 
: OUTPUTS: 
none 


IMPLICIT OUTPUTS: 


R9 and R10 are update to point to current position in output buffer 
R11 is updated as parameters are taken from the stack 


ROUTINE VALUE: 
none 
; SIDE EFFECTS: 
R7 and R8 are destroyed 


CVTASC: 
0078 8F 6B PUSHR #*M<R3,R4,R5,R6> 3; save registers 
7 Re CLRL ; set filled indicator to not filled 
FEC CF = 04 & A LOCC R4,#4,STRING_TYPES ; search for string subtype 
0 13 BEQL «=s«+1'108 t error if not found 
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ebro eDe petals le stestectesteslestostestesTestestesTesTostesJestecdestesTestosTestesfestesTeslestoclesTeslesteclesToslesTesleslesTeslesTesTestestoslesTeslesTests +] 
AAW 0 OONO NFU OOD NAUEWN SO ODNOAU EWN O OO NOAU EWI OO DNOUE WIN O 


SGOOSSOCOCOOCOOOOCOOCOCOOCOSOCCOOSOO CSCC OCSOSOOOOCOCOOCOOCOCOCOCOOOOOOOOOoOoOO os 


COCODO9C9O9 0909 SII ID DDD DDD DD. TI BB EE 


RO = 1- filled , 2 - 2 arg desc. , 3 = str. desc. . 4 = cstring 


SYS 
v04 


y's 


6A 


56 


20 


51 


ww 
— 


vu 
=~ 


58 
58 


56 
59 


5 
6 


52 


S28 


mou" 
Wo 


: 


5A 


9A 


o-oo 
o@ao 


TT 


E 
I 


The string is moved to the output buffer with blank fill at the 

; end. The output pointers are then ypqates by the field width, so 
; that the string will be truncated if it was longer than the field 
; width. If the string is filled, a second pass is made to change 

; non-printing characters to dots. 


ASCII OUTPUT SYSTEM sfevice 16-SEP-1984 02:06:1 AX/VMS Macro V04-00 
nsert ASCII string ets §g:99:18 Leys SRCISYSEAOLMARS 1 
7 CASE RO,<10$,20$,30$>,8,42 ; case on descriptor type, base = 2 
: Case falls naps © here for filled ascii strings. Two argument 
: descriptor is used. 
3¢ 108: INCL R7 ; set filled indicator for filled a 
38 . mova (R11)+,R1 ; get length and address 
$3 BRB 408 3; continue 
aH ; Standard system string descriptor 
6 e 
$08 20$: 
604 vQ a(R11)+,R1 ; move descriptor to R1,R2 
605 MOVZWL R1,R1 ; make sure Length is word 
? $ B 40$ 3; continue 
$58 3 
rst] : Ascii counted string, first byte contains Length 
611 ° 
ol¢ 30$: 
61 MOVL (R11)+,R2 ; address of counted string 
el8 MOVZBL (R2)+,R1 3; get Length and skip byte count 
e18 40$: 
618 ; 
619 ; Here, R1 has string length, R2 has string address. Check Length against 
e 9 ; specified field width to decide how much string to move. 
6 oe 
6 : MOVL R6,R8 3; was a width specified? 
624 BGEQ 50$ 3; branch if so 
e 5 MOVL R1,R8 : if not, use string length instead 
is 
‘ 
$33 
RE 
§ MOVL R9,R6 ; copy yenesamy char count 

e ; NOTE we have fo use R6 here. 

SUBL RB RO ; update Length remaining 

BLSS 55$ ; Overflow, use remaining Length. 
4 MOVL R8,R6 ; else move only required Length 
43 55$ MOVCS R1,(R2),#*A/ /,R6,(R10) ; move string, fill at end 
4 


MOVL R10,R2 3 Save output address 
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scii 


SY 
vo 


H 
= FORMATTED ASCII TPUT SYSTEM stavice 16-SEP-1984 71 AX/VMS Macro V yonye Pa 14 SY 
CVTASC = Insert ASCII st tein ng ~$eE= 1382 88: 96: 12 toys. SRCJS YSFAO AO.MAR; 1 wi (6) vO 
C 1 r ADDL R6,R1 3 ate ou pointer 
gS 8133 Beet ORS790 ; af don oF nok tilted ASCII 
19A 4g 60$: 3 R tt° now become loop counter. 
7.) ! . r MOVZBL (R2),R4 3 Fetch character 
} . t ; Check for 7 bit printing (left half of DEC169) 
91 01 , CMPB 4, #*040 ess than ace? 
iF 1A BLSSU : ius P 
71 1A CMPB 0 saR4, #*0176 ; Less *than delete? 
8 A BLEQU 80$ $ yes, printing GL 
ys ¢ Check for 8 bit printing. note that space with 8th bit set is non-printing. 
91 O1A 8 ‘ CMPB 0 saRG, #*XB0+*040 ; elete or ¢1 control? 
1B OAC 5 BLEQu 3 A t 
91 ia 60 CMPB RS WoXFF : 8 bit “delete” is non-printing 
12 1Be 61 bans BNEQU 80$ ; ba printing if not 
90 0184 oe8 . MOVB #*A/./,(R2) ; Set character to ‘'."’ 
187 $¢ 80S: 
06 187 5 INCL R2 3 point to next character 
F | +4 6 908 AOBLEQ R6,R7,60$ 3 continue until done 
05 01B8D $68 ‘ TSTL aS 3; Did we get result gression above? 
19 O1BF 06? BLSS 100$ : Yes. branch to tell user 
BA 1C1 670 POPR #*M<R3,R4,R5,R6> 
§ 01¢5 671 RSB 3; return 
1€6 ore 
1C6 673 1008: 
31 0106 674 BRW OVERFLOW 
34 675 110$: 
31 109 = 676 BRW ILLEGAL 


Fad ty FORMATTED ASCII Surry! SYSTEM stavice — aes 96:06:18 eevee Macro v04-00 


TNUM = 


a ht tk tk a at a tt at 8 bs bs a as ts an i a a ts a ts a a ss 
OOOO OV OV OV OV OV OV OV OV OV OV OV OV OV OV OV OV OV OV OV OV OV OV OV OF OF OV OB OV OV OF OV OF OV OV OF OV OV OOO OOO OOO OOP OPO OPO OVD 
POOOVOVOO|OVOVOVOVOVOBVOOVOVOVOVOVOVWOVOVOVOOOOOOOAO9OVOVOOOOOOOOIOOOOIOOVIAIOVOV OOOO LV LVL 


onvert numeric parameter to AS SYS.SRCISYSFAO.MAR; 1 


-SBTTL CVTNUM = Convert numeric parameter to ASCII 


i~ 


- 
+ 


FUNCTIONAL DESCRIPTION: 


This routine handles the yor toys HEX, OCT, — — 
conversions. The proper f $ extracted ¢ 
pereseter sOyte. were or long) and the needed | 
s de erain fhis is compared with the user 

ppec * fed field w Tain to Ceeraine Hi fe rat A: of f LLing 

needed. The entire field wi on the 
stack and then moved so that thy Bias sate A correct 
on buffer overflow. 


CALLING SEQUENCE: 


¢ 


JSB or BSB 
INPUTS: 
R3 - index o'. “octal ® in CNTRL_TABLE. 
= hex 
= Unsigned decimal 

= Signed decimal 

= Zero filled unsi pee decimal 
RG Sennett’ char of directive (6,W, or L) 


field width, or -1 i} none 
output Length remaining 
output position pointer 
next parameter pointer 


IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 
none 


: The registers will be set up as follows 


CAAA IPIPIDIPININININIDD 8 3 | MQOOODOOOOCOCOC OOOO OO OOO OMe acocececececo~ 
—Owoc 


PA @§ OOD NA NE WIN $9 OD NIA MNES WIN OOD NA NEW 2 S OD NAN EW OQ OONAUNE 


SOS SSS SEDDON PAPSAA AAPA AA AO 


rom i, 


S< 


onvert numer 


‘ 
: 
: 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


NODDED TI SS BE BB EE 


ie De Nt | 


NEA SO OONOAUE WN OOo 


ee ed ee ed ed ed eed et Bi QO OOOO FFF FFF HMMM MNS OOO SO MMOMOOOOAOOOOOOAOO 


MMM OOOO OO OWE FBO PN" 9999 9S MMIII © DOG OVO SMMAOMOMOAMOMOOAOOOO 


NRCC CATT Oeeevrrsrwssys 


c ope gill D ASCII OUTPUT SYSTEM stavice 1 


C parameter to AS $735 71382 88: 98: 12 a: SRCIS 


MO #°A/ /,R7 
MOVZBL RADIXCR3),R4 


: cose on the type of conversion. 


MEW OC ONAN EU SO OD NA UE WO OONOUM 


: Octal and Hex fall through here 


MOVAL  (R1)CR32,RO 
MOVZBL OCT_HEX_DIGITSCROJ,RO 
MOVL  R6,R8 
BGEQ 6-«15$ 
MOVL  RO,RB 
15$ 
CMPL = RB, RO 
BGEG 608 
MOVL  _RB,RO 
BRB 60$ 


; Unsigned decimal with zero fill 


208: 
MOVB #*Aa/0/,R7 
BRB 408% 


; Signed decimal conversion 


CASE R3,<40$,30$,20$>, ,#2 


Bye -00 
AO.MAR;1 


>> werd » 2 >> Long 


=> sign to be output, 0 otherwise 
ig ( ae = r, (blank, zero for !Z, or * on width. too small 


determine data t type 
continue if lega etoegtive 
else take error condition 


convert to index 

get next longword parameter 
select proper field 

note unsigned 

default. f tt char is blank 
get conversion radix 


3 4 - ey digits ° be output 
; R2 = ene "te be. 9 caqverted 
3 R ° vers oh e. 
; 4 = n ind He sy? 
; eects conversi 
§ RB - total width wot field to be output 
CVTNUM: 
PUSHR #*A<R3,R4,R5> 
LOCC R4 #3, DATA_TYPES 
BNEQ 108 
BRW ILLEGAL 
10$: 
SUBL3 RO,#3,R1 
MOVL (R11)+,R2 
EXTZV #0,FIELDSCR1)],R2,R2 
at R 


Note that base is set 
: so that octal and hex conversions fall through case table. 


; base index of 2 


CT_HEX_DIGITS 
ice, to Sutput 


compute index 
get number 9 di 
user specified w 
yes, use it as with: 
else take needed space 


width lss default digits? 
no, fill to user specitie 


d width 
else output only specified width 


insert new fill char 
continue with normal dec. code 


CV 
DA 
DE 
bd 
EN 
EX 
EX 
EX 
EX 
FA 
FA 
FA 
FF 
FI 
FI 
Fl 
GE 
GE 
HA 
ID 
IL 
IL 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
LA 
LF 
MA 
NE 
oc 
On 
On 
OF 
OF 
OF 
OF 
OF 
OF 
OF 


voa~-000 vegan ASCH our systen sEnvlcg. ng-sep—t94e BR:OG:1B YARNS nec YOE-00, Page 17 


4 308: 
52 52 FEB an 90 EE 5 EXTV  ] # FELOSERTI AE .Re 3 st mn extend the field 
F : BBC #31,R2,4 : negative, continue 
23 D6 A 2 INCL R 3 else note that value negative 
cE : 3 MNEGL R2,R2 3; and make it posit 
: 40$: 3; common decimal processing 
F $ 
F : 3; Determine the number of digits needed to print number in ASCII 
; : 3 decimal representation. 
F e 
29 1 OD F 3 MOVL 4G : init digit counter 
5 4 00 @ 38 468 MOVL R4,R 3; copy first power of 10 
53 52. «OD 19 "  CMPL Rg R3 : does it fit? 
1F B 81 BLssu 488 yes. no has count if so 
33 4 C4 A \§ MULL R4,R3 ; vig © next power of ten 
F4 4 F2 7 17 4as: AOBLSS R4,R0,44$ 3 tee emg (10 digits is largest possible) 
53 55 50 C1 02461 815 |  ADDL3  RO,RS,R3 : add in sign, if one exists 
58 Dd 45 18 MOVL R6,R8 ; did user specify width? 
g 1 468 81 BGEQ § > yes, use it for field width 
58 i) 4A 18 MOVL R3,R8 3; else use amount needed 
oA 11 4D 19 as BRB $ > continue 
58 53 D1 024F 1° CMPL  R3,R8 ; is there space within specified width? 
15 ef § BLEQ 60 3 yes, go on 
57 A 90 MOVB #*A/*/,R7 3 no room, fill with stars 
0 04 2 : CLRL RO 3; output no digits 
23 § 60$: 
FB AD 52 00 iH ; MOVL R2,LASTVAL (FP) ; remember value to be converted 
D 3 
5D 0 ; Insert the ASCII representation for the value in R2 into the 
4 ; 3; output buffer. 
D e 
p 4 CVT_BIN_TO_ASC: 
0840 8F ge D § PUSHR #*M<R6,R11> 3 save work registers 
04 hy F 61 PUSHAB 4(R8) 3 compute stac apace needed for buffer 
E g CA 64 3 BICL #3, (SP) ; round stack to longword 
8 ga rH MOVL SP,R11 3 save stack pointer 
; = ¢ on rt SUBL tit. $P ; leave buffer space on stack 
30 D4 6D $s CLAL Hi 3 st Loar ypoer half of quad quotient 
51 1 rf of 4 MNEGL ‘ 4m 3 t digit counter for loop 
4 rf: 108 BRB 3 start Ht 
6 52 54 74 (BG "- EDIV. RG, R2,R ; R2 <= quotient, R6 <- remainder 
78 eae cF46 8 9 ‘3 an move = as¢ RGAMeSCROD, -(ni1) output ascii digit 


BO Se ee ee ee ee ee eS SS SSS SVS SCS SUS UECUCEOETEDETCECETUTEUTETEUS << 


voe~-000 


03 
78 OS 
F951 58 
08 
02 59 
8A 

FS 5 

SE 58 
0841 8F 
38 


T a ase oureyt sysven sence. 1g-seP-t9Ee BR:O4:18 YANZWME teece yOK-g0, Page 1, 


11 


F3 


f=) 


>>>r>>rrrrrrrrrwo 
tt 


S taoanaoaoee a 


AOBLSS RO, ais 108 


one ore digit, done yet? 
branch if no si gn to output 
output sign 


: iif field (R8) is not full, then fill remainder with the fill character 


i aOve Biles, -(R11) 
208: 


40$ $ 
MOVB R7,-(R11) 3 

fo 40$: 
o7 AOBLEQ R8,R1,30$ 3 


6 
65 ; 
96 3; Now copy stack back to buffer, checking 


és 
: Sos: BRB 70$ 3 
at SOBGEQ 

B Pagent 


7 
ig 608: MOVB iises oRi0)4 
: 0$: R8,50$- 


: Now clean up mess on stack 


MOVL  R11,SP 
POPR  #*M<RO,R6,R11> : 


POPR #*M<R3,R4,R5> 
RSB 


0 
: 
3 > Restore registers and return from service routine. 
8 


start the loop 
insert fill character 
fill until full 


for overflow 


start loop 


update Length. check for overflow 
handle over 

move char to output buffer 

move entire string 


restore stack 
remove top of stack and restore regs 
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: -SBTTL QUICKSERVE = Small service routines 


+ 
> 


FUNCTIONAL DESCRIPTION: 


Following are a collection of short service routines for 
FAO directives. 


CALLING SEQUENCE: 
JSB or BSB 
INPUTS: 
ea eee 


user specified fie oe Urgrn. if any 5 Iw, tor singal char 
and argument atroct ve 


za DD 
oOo oOo 
a t 


output pongst rema pay 
R10 = output position pointer 


IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
R9 and R10 are modified 
COMPLETION CODES: 
none 
SIDE EFFECTS: 
none 


_ 
~Oco 


INCR_ARGPTR: 


Directive to skip next parameter in parameter List 


TSTL (R11)+ : skip next parameter 
RSB exit 


wht 


von anc 


Pridmiritr Pr GD OD GD OD GD OD GD GD GD GD OD GD OD GD Oo GD Go > Go wD OD a GD GD eb em ed GD ed Go en em en em ep em eo em eon ep ep eo ew em eo aD eDeDeDeD 


WOWODODOOOOOOOOOOOOOODOOOODOODOOOOOOODOODOWOOOOOODO 


> Directive to back up and reuse last parameter in parameter List 


voL-000 QUICKSERVE = Sma ourrut_systen,senvice "BrSEp=19be OSsssiie LevsvencievsrAgmansy = a8® 28, Ta 
47 ; 
7B Be cert -(R11) : best up argument pointer 


Insert carriage return, Line feed into output buffer 


02 59 =F4 SOBGEQ R9,10$ ; room for CR?, branch if so 
06 11 oa BRB INSERT _OVF ¢ no room in output buffer 
8A 0D 90 " MOVB =o #CR, (R10) 4 : insert CR in output buffer 
3; continue for LF insertion 
INSERT_CHAR: 
Make simple one character insertion in the output buffer. 

03 59 =F4 SOBGEQ R9,INSERT_IT : check Length, branch if ok 

INSERT_OVF : 
FE32 «31 BRwW OVERFLOW 3 error , no room in output buffer 

INSERT_IT: 


; Insert the character by computing the index into the replacement table 


8A FDSF CF43 


oo 
Wo 


aoe REPLACEMENT=REPL_OFFSETCR3],(R10)+ ; insert the char 


OCD. G9 09 69 09 69 G9 09 09 09 SINISE SD PAPA A AAA DA MITTIN 
WOOD NA UNE WN DS OCD NAME WWII OS OO NAME WO OO NAUE WOW 
ee 


WO OONAOULSWN Oo 
» 
nw 
@o 


C 3; Directive to repeat a particular character ‘n' times, where 'n’ is 
: 3 specified by the field width h in the directive. 
C 7 
C REPEATIT: 
3 Be C PUSHR #*M<R3,R4,R5> 3; save i for MOVCS clobber 
g D C TSTL ; check i yiéth Was spec ttied 
1 1 CA BLSS ILLFIELD 3 itt egal i none specif 
59 56 ¢ cc SUBL 6 3; compute remain ng output Length 
1 CF BLSS INSERT 3; not enquah room, erro 
6A 56 54 6€ ec a} MOVCS #0, CEPT RS, R6, (R10) : fill wit specified character 
SA $ C D ADDL R6,R 3; update output pointer 
Be 4 POPR #°A<R3,R4,R5> 3; restore regs 


ng "9 the cl fied with which define , fixed length field. 

idth is spec a " h the define field directive. At the 
irective, ony of he field remaining is blank filled, else 
s truncated to the specified length. 


Ag —- 


PIP IPPIPINIPIPIPIPIDPOPPIPPIPINPIPIPIPIPIPIPIPIPIPIPIPIPINIPIPUIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPURIPD 
\~4~-4~-4-3-] OOODWDWDWWDWIOOWOVWODVOOOODWOOTODWIOWIINIOOUr>r>r FD 
~~ h~ ie) BPA AAA AO OMT HHH HOMO OODDOODOOOOOE OS Ft SOOM <4 

SDOOOODOODOOODODOOODOOOOOOOOOOODOODOOOOOOOODOODOOODOODOOOOOOOOOOOOOOO 


SOOOOOOSOSOOOOCOSOSOOCOSOOCOSOOOSOSOOSSOSSGOOCOSOSOOSCOSOOOOOOOOOCOOOOOSOOOOOOO “4 


Soooooooowowoovono 


eed 8 et 


9 
SYSFA = FORMATTED ASCII OUTPUT SYSTEM SERVICE 16-SEP-1984 02:06:18 VAX/VMS Macro v04-00 Pa 21 
von-000 QUICKSERVE - Small service routines iets 1 §g:9$:18 LEYS SRCISYSEAO_MARS 1 ” (8) 
DD 1004 
DD 1005 STARTFIELD: 
28 D5 DD 1 § TSTL R ; did user specify field (must be specified) 
0 18 pf ! uurieee STARTOK 3 yes, continue 
FEO8 31 —1 1 $ JLLEGAL ; illegal directive 
FC AD 5A >. oF E4 1 STARTOK:ADDL3 R6,R10,FIELDEND(FP) ; compute and save ending address 
59 6 D1 E9 1011 CMPL R 3; was that much spate remaining? 
CE 14 O2EC 1 1 BGTR —_ INSERT_OVF ; no, take error here 
05 EE 101 RSB 3; return 
FF 1018 
EF 1 1 3; Set we registers so that if fill is needed, a phony call is made 
8 44 i : ; to REPEATIT with the Length in R6 and the ‘blank’ character in R4 
EF 1919 
EF 1020 ENDFIELD: 
54 e 9A EF 1021 tle #*A/ /,R4 ; generate blank fill character 
56 FC AD A (C3 8 Fs 10 § SUBL R10, F IELDEND(FP) ,R6 3 compute remaining field Length 
CD 314 O2F? 10 BGTR REPEATIT : if any left, go fill with blanks 
5A FC AD DO O2F9 1024 MOVL FIELDEND(FP) ,R10 ; else truncate by setting back pointer 
ye Oe bere 1025 SUBL R6,R9 ; subtract negative difference from counter 
05 0300 1026 RSB 3; return 


S< 


3 
- FORMATTED ASCII] OUTPUT SYSTEM sERV{ ce 
PERCENT = Time directives, plural ‘S', a 


-SBTTL PERCENT = Time directives, plural ‘S', and UIC 


SY 
V 


Ra 
Zé 


VOPSEPCISES SE:RG:12 PERCY EE Sacco, youzg0, pace 3%, v0 


—Owoc 
> 
ca 


FUNCTIONAL DESCRIPTION: 


These directives are for date and time conversion, for 

conditionally inserting a plural 'S* into messages, and UIC conversion. 
The time directives insert an ASCII time ay tey into the output buffer. 
The user may supply a quadword binary time to be converted, 

or have the current date or time inserted. 


CALLING SEQUENCE: 
JSB/BSB 
INPUTS: 
R4 = second character of directive. D => convert 


date and time, T => convert time onl 
$ -> plural indicator, U -> convert UIC 


.*y 
1 $4 
<9 
1] 
» 4 : 
1 1034 
1 ie 
1 #1 ‘ 
,.% 
tA. 
1 104 
1 1041 
:? 4g 
1 104 
". 3 te 
1 104 
ae 6 
0301 104 
0301 1908 i => identifier 
0301 1050 R6 - user specified field width, if any 
8351 1051 RJ = remaining pengte of output buffer 
$61 1936 R10 - current output buffer position 
- next parameter address 
- 
B30) 1055 ; IMPLICIT INPUTS: 
$5) 1996 
ee 
835) 1088 OUTPUTS: 
01 1060 
0 4 +2 none 
61 1908 IMPLICIT OUTPUTS: 
0301 1064 
6 4 ! 92 none 
U LUE: 
01 1 8 ROUTINE VALUE 
01 1 o8 
4 | $) none 
! i } SIDE EFFECTS: 
as bs none 
1 HBr 
000001F C } } A ID_REG_MASK= “M<R2,R3,R4,R5,R6,R7,R8> ; 41 & 2U WORK REG MASK 
..-% 4 PERCENT: 
FD20 CF 05 54 3A 1 107 LOCC R4,#5,PERCENT_STR 3; find directive type 
d8 «13 7 1080 BEQL ILLFIELD : illegal directive if not found 
D4 9 1081 CLRL R 3 assume date and time 
! § CASE RO,<5$,10$,30$,70$,210$>,8,41 ; branch on directive type 
19 1084 ; 


Ree ed O Re nn nn nn Semel 


dD 9 
SYSFA = FORMATTED ASCII] OUTPUT SYSTEM SERVICE 16-SEP-1984 02:06:18 VAX/VMS Macro v04-00 Pa 3 SY 
vou-000 PERCENT = Time Slesetieee. plural aye a ~$Fb= 1382 86:98:18 SYS.SRCIJSYSFAO.MAR; 1 vit 2) 


5 ; Time only directive falls through here 


5$: 
INCL R7 ; indicate time only 
10$: 3; time and date enters here 
PUSHR #*M<R3,R4,R5> 3; save regiprers 
MOVCS #0,(R16),#*A/ /,R9,(R10) ; blank fill rest of output buffer 
MOVAL -(5P),R8 ;’space for return Length 


MOVa = RO, = (§P) : form descriptor for output buffer 


MOVAL  (SP),R2 ; get address of buffer descriptor 
MOVL (R115+,R1 ; get binary time address 
BEQL 12$ ranch if no address 


om 
> 
> 
_ 
o 
= 


: let potential access violation 
3 «+ehappen in this frame rather than 
3 eeewithin SASCTIM to help condition 


; .--handler 
128: SASCTIM_S (RB),(R2),(R1),R7 ; convert time to ascii 
52 56 ts MOVL R6,R2 ; did user specify width? 
03 (1 GEG = 20 ; yes, use it 
ae & Ss 208 MOVZWL (R8),R2 ; else use returned length 
59 65 SUBL Re Rg ; update output Length 
1 1 BLSS 40$ ; error, not enough room 
-_— = co ADDL R2,R10 ; update output buffer 
5E of co ADDL #12,SP ; pop locals from stack 
8 Be 4 #*M<R3,R4,R5> 3; restore registers 
30$: : 


: Check if the last value converted was equal to one. If so, then do 
3; nothing, else output an ‘S' into the output buffer. 


PPrPrrrr PS PONS S| MAO ONL AI HOVOOWVIDDOOWOOoO 


CMPL #1, LASTVAL(FP) 
BEQL o$ 
SOBGEQ R9,50$ 

$:  BRW OVERFLOW 

$:  MOVB #*A/S/,(R10)+ 
BBC #5,-2(R10) ,60$ 


BISB #°X20,-1(R10), 
RSB 


was last value a one 

yes, simply return 

check if room in buffer 

no room , error 

plural, insert 'S' 

continue if previous character was 
.»-upper case 

else convert upper ‘'S' to lower ‘s' 
return 


o 

Pd 

“ 

o 

~ 

o 

—romoo» 
2S wn 
momow ~w 
bebe ee 9 
-—Womoma a 

A. ANA. AAA AAAI AIAN WII AIAN INN AININIAWNI INIA ANIA AAI AIAN ANA 


DDD DPD GPA BY EE EIA IIAP SS = OO OO 
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SUIO 
mm 
wn" 
o 
hMwwroo 
omonm 
SscZ 
A.A AAA.AANI AIA AINA 
a 
DWOLLLLLLLLKSE 


oo mown—o 
wc —O—fW— 
Fwrnn>ySowom 


INO 


o 
o 
Pf 


Convert a lLongword value to an identifier if possible. This identifier may 
take one of two forms, a random identifier or an alphanumeric UIC. In the 

case of an alphanumeric UIC 
roup portion of the Uic. jl 
sa 


ottonot is first made to translate just the 
S, 
he entire UIC. If th 


an 
if this fa an attempt is made to translate 
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: directive. 
70$:  PUSHR #10 _REG_MASK : SAVE WORK REGS 
SUBL2 #327SP : GROUP IDENTIFIER STORAGE 
VL §P, =< SP) + GROUP IDENTIFIER 
DD 037E PUSHL #32 : DESCRIPTOR 
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F 
ORMATTED ASCII OUTPUT SYSTEM SERVICE 16-SEP-1984 02:06: AX/VMS Macro V04-00 Page 25 
CENT = Time directives, peal ‘'S', a §-8 sats yi §¢:9¢:18 SYS.SRCISYSFAO.MAR; 1 ° 3) 
; 1 BBS a3) 681) 120$ 3; XFER IF NOT UIC 
1 MCVB ss #@*A/E/, (RS) + + NOTE START OF UIC 
1 TSTwW (R7) 3; DID GROUP NAME TRANSLATE? 
> % BEQL 1608 3; XFER IF NOT 
oT MOVC3 (R7),@4(R7),(R3) 3; ELSE COPY GROUP NAME 
4 1204 MOVB #*A/,/ yt he 3; SAVE SEPARATOR 
17 1205 1208: Movc3 (RB) a4 (RB) R3) ; COPY USER NAME 
f 1 : BS #31,(R11),105$ + XFER IF NOT UIC 
1 MOVB wa A/ (RS) : TIE OFF THE UIC 
4 1 125$:  SUBL R6,R 3; CALC REMAINING ROOM IN THE BUFFER 
ge ADDL R6,R10 3; CALC NEXT AVAILABLE IN BUFFER 
A 121 BRB 196$ : GO FINISH UP 
1211 130$:  MmOvVC & ASP) Paros Mb, CRIED 3; NOTE FIELD OVERFLOWED 
1 \§ SUBL R6,R 3; ADJUST COUNT 
121 ADDL R6,R10 ; AND POINTER 
1214 BRW OVERFLOW ; NOTE OVERFLOW 
1215 1408: MOVCS eye Ser? APRs e/ BO, Cae) ; NOTE BUFFER OVERFLOWED 
tt 1 18 CLRL R 3; NO ROOM LEFT 
22 ! A BRW OVERFLOW 3; NOTE OVERFLOW 
446 1219 ; At this point, it has been determined that no translation exists for the 
446 1220 ; specified identifier. If it is a UIC, format it using the tu. If it is 
rr ! 1 ; a random identifier, try to convert it to a hex number. 
446 1 é 150$:  CMPL (R11) ,#-1 3 IS THIS THE MATCH-ALL IDENTIFIER? 
44D 1224 BNEQ 70$ ; XFER IF NOT 
4F 1225 SOBGEQ R9,160 3; XFER IF 
32 1 6 BRW OVERFLOW : ELSE NOTE OVERFLOW 
5 1 160$: MOVB #*A\e\,(R10)4 3 NOTE THE MATCH-ALL IDENTIFIER 
58 1228 BRB 190$ > GO FINISH WITH THIS DIRECTIVE 
5A 1229 170$: CMPZV #UICSV_FORMAT,#UICSS_FORMAT, (R11) ,#UICSK_UIC_FORMAT ; UIC? 
5F 1230 EQL 0 ; MFER IFS 
61 1231 ADDL2 #8+32+8+32,SP ; CLEAN UP THE STACK 
68 1 § POPR dy REG_ASK ; RESTORE WORK REGS 
6c 1 SOBGEQ Rk9,T80$ 3; INSURE ROOM FOR 2X 
of 1234 BRW vERFLOW 
1235 180$: MOVB #*A\Z\,(R10)+ 
75 1 : SOBGEQ R9,185$ 
7 1 BRW OVERFLOW 
78 1238 185$: MOVB #*A\K\, (R10)+ 
7F 1239 MOVIL #1,R ; SET UP FOR HEX CONVERSION 
1240 MOVZBL #*A/L/,R4 
1241 BR graye ; GO TRY TO CONVERT 
1 ri} 190$: ADDL2 #8+32+8+32,SP ; CLEAN UP THE STACK 
124 POPR #I1D_REG_MASK ; RESTORE WORK REGS 
94 1244 TSTL (RIT)+ 3; SET TO NEXT PARAMETER 
38 1245 RSB 3; RETURN FOR MORE 
97 1 v4] 200$: ADDL2 #8+32+8+32,SP 3; CLEAN UP THE STACK 
rH ! 2 POPR #1D_REG_MASK ; RESTORE WORK REGISTERS 
4A2 1 a3 3 
4A2 1 ; Convert the longword value to a UIC in a standard format. This format is 
4A2 1 3; Cgroup,member]. Where the group and member portions are a word (16-bits) 
4A2 1 3 98 h. If a width is supplied, the UIC is centered (by the comma) in the 
4A2 1 3; field. 
4A2 1254; 
4A 1255 
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| Quypuy system sEavice rg-sepctoge 69:06:18 yanLumg Macze,3OK=00, ae 28. 


-SBTTL HANDLER = Condition handler 


+ 
> 


FUNCTIONAL DESCRIPTION: 


This cone? ion handler is used to catch any errors which 
surrey © hile $ processing the egont ents, such as access 

olation. & because we on t want exceptions 
occurrin within the system servi 
Care must be taken in this handler to deal with a second access 
violation while storing the return value for $FAO. 


INPUTS: 
CHFSL_SIGARGLST(AP) = Address of signal vector 
CHFSL-MCHARGLST(AP) = Address of mechanism vector 
OUTPUTS: 


The final RO is set to the status code and the service 
is exited via SUNWIND. 


-WEAK EXESSIGTORET 


HANDLER: 
«WORD 0 


MOVAB fb TMESSESTORET SFP? :Simple handler for errors here 
BEQL 0$ eeaeeeee 


+ ee CHF SL_MCHARGLST FO CHFSL.. SIGARGLST+4 


OV - HF $L~SIGARGLST( Get address of signal argument List 
CMPL SS$_ONWIND, CHF SL sien “NAME (RO) jUnw indi ng? 
BEQL $03 sExit if y 
Hay HF SL_MCH_DEPTH(R1) iExcept ion, vithin FAO? 
MOVL CHFSL_SIG_NAME(RO), CHFSL. Aen HSAVROCRI). iSet final pons status 
CLRQ =(SP)~ Clear depth and new PC argum 
CALLS #2,G*SYSSUNWIND ;Unwind to establisher’s call ry 
yteeee The next instruction ay pcyes 
MOVL SFSL save AP(FP) ,RO :Get address of FAO's orgunens | 
MOVL OUTLEN (ROT ,RO Output bength requested 
BEQL zsBranch if n 
CLRW (RO) zsIndicate nothing returned. ” butter 
10$: peeeee End orp ential A 
8 ! poyew #SS$_RESIGNAL ,RO ;Resignal (ignore after UNAM) 


9 
SYSFAO = FORMATTED ASCII OUTPUT SYSTEM stevice 16-SEP-1984 02:06: 
Symbol table et 8¢:98: 
ARGCOUNT = OP$_ADDF = 
ASC_NAMES R OP$_ADDG 2 
CASE_BSB C8 R OP$—ADDG = 
EArer ern AR OP$_ADDH = 
CHF SC_MCHARGLST 2 ; P$_ADDH = 
CHF SL-MCH_DEPTH 2 OP$—ADDP4 z 
CHF SL_MCH-SAVRO = f OP$-ADDP6 = 
~SIGAR 2 OP$_ASHP = 
-S1G = 4 OP$-CLRD 2 
CNTRL_LENGTH = g OP$_CLRF = 
TRL_TABLE 10 R 02 OP$-CLRG = 
CR = D OP$_CLRH 2 
CVTASC BR OP$_CMPD = 
CVTNUM CR OP$_CMPF = 
CVT_BIN. TO_ASC DR OP$—CMPG z 
DATA_TYPES 4R PS_CMPH = 
DECR_ARGPTR OOO2AE R OP$_CMPP3 = 
OOOOFA R OP$_CMPP4 = 
ENDF IELD 444 FR 0 $_CRC = 
Exch z 1 OP$"CVTBD = 
EXESFAO O88 F RG OP$_CVTBF = 
EXESF AOL 4C RG OP$_CVTBG = 
EXESSIGTORET eeeeeeeey GX OP$-CVTBH = 
FAO st 57 R OP$_CVTDB = 
F AO_CASE OOOOCF R OPS_CVTDF s 
FAO_EXIT OQOOOOOFD R 0 OP$_CVTDH = 
FF = 0000000C OP$_CVTOL = 
F IELDEND = FFFFFFFC OP$_CVTDW s 
FIELDS B09 2c R 02 OPS_CVTFB = 
FIRSTARG = 0000001 OPS$_CVTFD s 
GETCHAR 8 109 R 0 OP$_CVTFG = 
GE TCOUNT 0000116 R 0 OPS$_CVTFH 2 
HANDLER OOO0SAD R 0 OPS_CVTFL s 
ID_REG_MASK = 1FC OPS_CVTFW 2 
ILCE EC R OP$"CVTGB 2 
ILLFIELD 00002E1 R OP$_CVIGF 2 
INCR_ARGPTR $ ABR OPS" CVTGH = 
Inost = 0004 OP$_CVTGL = 
INLEN = PEFPEEEO OPS$_CVTGW = 
INPTR = FFFFFFF OP$_CVTHB = 
INSERT_CHAR 9R 0 OP$_CVTHD = 
INSERT_IT BF R 8 OP$_CVTHF 2 
SERT_OVF a R OPS_CVTHG 3 
vaC = FFFFFFF OPS_CVTHL = 
= 0000000A OP$~CVTHW = 
MAIN_SCAN 00000064 R OP$_CVTLD = 
INE 00000 8 OPS_CVTLF = 
OCT_HEX_DIGITS 0000033 R OP$-CVTLG = 
HAR™ I = 000000 OP$-CVTLH z 
One CHAR_CNTRLS 00000018 R 02 OP$"CVTLP s 
~ACBD = 0 SF OP$"CVTPL = 
OP$_ACBF = 00 & OPS_CVTPS = 
OP$_ACBG = O¢ FFD OP$_CVTPT = 
OP$_ACBH = OO0006FF OP$_CVTROL = 
OP$_ADDD z OPS-CVTRFL : 
OP$_ADDD = OP$_CVTRGL = 
OP$_ADDF 2 0 OPS_CVTRHL = 
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SESSSSSSSSSSSSSSSSSS SESS ESSE SESS SERS SEES SS SRS SESS SSSESSES 


SYSFAO 
Psect synopsis 


PSECT name 


. ABS . 
SABSS 
YFSSYSFAO 


Initialization 
Command processing 


Pass 1 

Symbol table sort 
Pass 2 

Symbol table output 
Psect synopsis output 


Cross-reference output 
Assembler run totals 


ine yorking set Limit was 2100 pages. 
81515 bytes (160 pages) of virtua 
There were 60 pages of symbol table space allocated to hold 
4147 source Lines were read in Pass 
143 pages of virtual memory were used to define 14 


Macro library name 


Stitt $ SYS.OBJJLIB.MLB; 
$255$DUA28 : CSYSLIBISTARLET. 


TOTALS (all Libraries) 
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= FORMATTED ASCII OUTPUT SYSTEM sERvice "9 


ee 


! Psect synopsis ! 


beer enn en eee cwcan$ 


Allocation PSECT No. Attributes 
0000 ( -») 00¢ 0.) NOPIC  USR 
a i: 
OOOOSEB ( 1515.) 02 ¢ 2.) NOPIC USR 
perce ewe eres neem emoemaocene a} 
H Performance indicators ; 
Page faults CPU Time Elapsed Time 
35 0:00:00.09 0:00:00.95 
130 0: 0:00:78 0:00:08-1 
49 0:00:17.2 B88: on 
0 0:00:01.48 0: 800.6 
234 3: 3: 2°98 0:00:16.94 
25 :00:00.1 0: Hae: 
0:00: +e 0:00:00.0 
83:8 : 9 :00:00.0 
93 0:00:25.74 00:01:18.76 


+ producing 1 
macros. 


feces ece nm naoae ewrereeocteeas + 


; Macro Library statistics H 


Macros defined 


1 
MLB;2 } 


946 GETS were required to define 13 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSFAO/OBJ=0BJ$:SYSFAO MASD$:CEMULAT.SRCJMISSING/UPDATE=(MASD$: CEMULAT.ENHJMISSING) +MASD$:CSYS.SRCISYSFAO/UPDATE=(MAS 
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iets §¢:98:18 SYS.SRCISYSFAO.MAR; 1 ° dd) 
CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 


memory were used to buffer the intermediate ee 
892 non-local and 90 local symbols. 
object records in Pass 2 
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L EQUIPMENT CORPORATION | 
ENTIAL AND PROPRIETARY 


2G DIGITA 
V4.0 CONFID 


A904 AH-BT13A 
VoOT VAX/VMS 


